﻿Public Class Veicolo
  Private inMovimento As Boolean
  Public Sub New()
    inMovimento = False
  End Sub
  Public Function SiMuove() As Boolean
    Return inMovimento
  End Function
  Public Sub Avvia()
    inMovimento = True
  End Sub
  Public Sub Arresta()
    inMovimento = False
  End Sub
End Class
